Status epilepticus

Hilbert:
"Die Trennung der Wissenschaften in Fächer und Fakultäten ist eben etwas Anthropologisches, und der Wirklichkeit Fremdes; denn eine Naturerscheinung frägt nicht danach, ob sie es mit einem Physiker oder mit einem Mathematiker zu tun hat"

هیلبرت:
«تفکیک علوم به بخش‌ها و دانشکده‌ها چیزی انسان‌شناسانه و بیگانه با واقعیت است.
زیرا یک پدیده‌ی طبیعی نمی‌تواند بپرسد که آیا این موضوع با یک فیزیکدان ارتباط دارد یا با یک ریاضیدان»

@erfaniumm

477 viewsErfan Naghavi, edited 16:30

Status epilepticus

از ایده‌های باحال، جالب و خلاقانه‌ی یکی از پوسترهای OHBM2024 :)))

@erfaniumm

387 viewsErfan Naghavi, edited 13:45

Status epilepticus

کی فکرشو می‌کرد اون میلینِ نچسبِ دور عصب‌های ما، ممکنه مسئول حیاتی‌ترین و مهم‌ترین پرسش تاریخ بشر باشه؟

مقاله‌ی جدیدی که اخیراً توسط فیزیک‌دان‌های محترم چاپ شده نشون میده که میلینِ دور اعصاب می‌تونه به صورت بالقوه جفت‌فوتون‌هایی تولید کنه که به صورت کوانتومی درهم‌تنیده هستن.
به عبارتی ذراتی تولید بشن که هرچند فاصله‌ی دوری از هم دارن، اما خصوصیاتشون وابسته به همدیگه‌اس؛ که می‌تونه پایه‌ای بشه برای هم‌زمانی فعالیت‌های مغزی، یکی از پایه‌های تئوری‌های Consciousness.

🌐 لینک خبر

🌐 لینک مقاله

@erfaniumm

486 viewsErfan Naghavi, edited 15:02

Status epilepticus

3:37

❓چقدر و از کجا می‌تونم برای سفر خارجی جهت ارائه‌ی مقاله، کمک‌هزینه دریافت کنم؟

#از_سوالات_شما

@erfaniumm

442 viewsErfan Naghavi, 13:15

Status epilepticus

✅ مبالغ کمک‌هزینه‌ی معاونت بین‌الملل دانشگاه علوم پزشکی تهران
@erfaniumm

468 viewsErfan Naghavi, 13:15

Status epilepticus

PHENOMENAL

@erfaniumm

330 viewsErfan Naghavi, 16:49

Status epilepticus

✅ یادآوری:
جلسه‌ی Correlation در R

چهارشنبه ۳۱ مرداد، ساعت ۱۴

319 viewsErfan Naghavi, 09:56

Status epilepticus

✅ مؤسسه‌ی تحقیقات سلامت Menzies وابسته به دانشگاه تاسمانیا در استرالیا، هرچند وقت یک‌بار یه کورس آنلاین و رایگان در مورد MS به اسم Understanding Multiple Sclerosis برگزار می‌کنه.

این کورس، در صورتی که فقط ۲ ساعت در هفته وقت بذارید، حدوداً ۶ هفته طول می‌کشه که به‌نظرم زمان بسیار خوبیه.

فهرست ماژول‌هاش هم به شرح زیره:

1. Biology and pathology
2. Diagnosis and symptoms
3. Demographics and introduction to risk
4. Risk factors
5. Disease management and support strategies
6. Living with MS

🌐 لینک کورس

@erfaniumm

358 viewsErfan Naghavi, 08:19

Status epilepticus

https://meet.google.com/emc-nvvj-oie

لینک جلسه‌ی Correlation😁

Google

Real-time meetings by Google. Using your browser, share your video, desktop, and presentations with teammates and customers.

285 viewsErfan Naghavi, 10:37

Status epilepticus

library(car) 
library(ggplot2) 
library(pastecs)  
library(ppcor) 
 
 
pro <- read.csv("C:/Users/mehdi/Desktop/Projects/PPMI dataset/Lumbar_Puncture.csv") 
pro <- subset(pro, EVENT_ID == "V04") 
pro <- pro[ , c(2 , 35 , 37)] 
pro <- na.omit(pro) 
pro <- subset(pro, PATNO < 10000) 
 
mds <- read.csv("C:/Users/mehdi/Desktop/Projects/Reyhaneh/mds.csv") 
mds <- subset(mds, EVENT_ID == "V04") 
mds <- mds[ , c(2 , 13)] 
mds <- subset(mds, PATNO < 10000) 
 
final <- merge(pro, mds, by = "PATNO") 
 
test <- cor.test(final$TOPRRSLT, final$NP1RTOT, conf.level = 0.99) 
test 
 
plot1 <- ggplot(final, aes(final$NP1RTOT)) + 
  geom_histogram(aes(y = ..density..), color = "red", fill = "white") + 
  stat_function(fun = dnorm , args = list(mean = mean(final$NP1RTOT, na.rm = TRUE), 
                                          sd = sd(final$NP1RTOT, na.rm = TRUE))) 
plot1 
 
plot2 <- qplot(sample = final$NP1RTOT) 
plot2 
 
plot(final$NP1RTOT, final$TOPRRSLT) 
 
test.s <- shapiro.test(final$NP1RTOT) 
test.s 
 
test <- cor.test(final$TOPRRSLT, final$NP1RTOT, method = "kendall") 
test 
 
 
x = (1:100) 
y = 2^x 
plot(x  , y) 
 
cor.test(x, y, method = "spearman") 
 
 
cor.test(final$TGLCRSLT, final$TOPRRSLT) 
cor.test 
 
age <- read.csv("C:/Users/mehdi/Desktop/Projects/Reyhaneh/status.csv") 
age <- age[ , 1:2] 
age <- subset(age , COHORT != "3") 
age <- subset(age, PATNO <10000) 
final <- merge(final, age, by = "PATNO") 
 
demo <- read.csv("C:/Users/mehdi/Desktop/Projects/Reyhaneh/Age.csv") 
demo <- subset(demo, EVENT_ID == "V04") 
demo <- demo[ , -2] 
final <- merge(final, demo, by = "PATNO") 
 
help("pcor") 
 
final2 <- final[ , -1] 
 
pc <- pcor(final2) 
pc