Răzvan T. Coloja's Blog, page 32

So I started to learn R…

Acum câteva luni mă jucam cu JASP și mi se pare un program bun pentru începătorii într-ale statisticii. SPSS nu e nici el de lepădat, fiind standard în statistică dar totodată bazat pe JAVA și efectiv mă enervează cât de greoi lucrezi cu el dacă n-ai hardware bun (în Linux, cel puțin). Așa că m-am pus pe R ieri și cu cât lucrez mai mult cu el cu atât îmi dau seama de ce a lucra în SPSS e ca și cum ai trage plugul cu găinile în comparație cu R care e combina futuristă multifuncțională care nu doar sădește, udă și dozează precis cantitatea de îngrășământ dar o face de vreo 50 de ori mai repede.

Ca să văd dau un exemplu, în SPSS ca să generezi o statistică descriptivă trebuie să deschizi programul, să deschizi baza de date prin câteva click-uri, să accesezi niște meniuri, să alegi niște chestii de la Descriptive Statistics și să-i dai să genereze un output. Output frumos structurat, gata de luat cu copy/paste și pus în studiul din DOC. Dacă baza de date SAV are vreo 900 de MB efectiv faci cu nervii până o deschide. Dar în R deschid un prompt BASH în Linux, tastez ”R” ca să pornesc programul, mi se dă un prompt R și de acolo lansez un script R dacă vreau. Cum am lucrat cu BASH de câțiva ani mi-e mai ușor să lucrez în R. De exemplu, în BASH avem head și tail și fac același lucru și-n R. Asta așa – ca idee.

Exemplu practic:

Am creat două grupuri: grup1 și grup2 și le-am atribuit niște valori. Apoi am făcut un simplu test T pentru eșantioane perechi și ni se returnează t-ul, abaterea standard și p-ul, plus mediile celor două variabile. Un test T pentru eșantioane independente s-ar face cu t.test(grup1), de exemplu.

chestie #deschidem baza de date CSV și-i atribuim numele ”chestie”

summary(chestie) #generăm statistica descriptivă (medie, mediană, valori minime, maxime)

Și asta e tot. Faci un script cu astea două linii de mai sus și-l poți modifica cum dorești și genera statistici descriptive pentru orice CSV. Din câte știu R importă și fișiere SAV din SPSS. Și le faci toate din consolă, fără JAVA hăplăind resurse ca un cal înfometat. Până pornești SPSS, R din BASH deja și-a făcut treaba.

Vreau media unei singure variabile? Simplu:

mean(chestie$variabila)

Vreau primele șase linii de date ale variabilei cutare?

head(chestie$variabilă)

Le vreau pe ultimele?

less(chestie$variabilă)

Vreau listate doar primele 3 rânduri din toată baza de date?

head(chestie, 3) # sau mai merge și cu head(x=chestie,n=3) dar de ce să ne complicăm?

Vrem să creăm o nouă variabilă care să fie rădăcina pătrată a unei alteia?

chestie$sqrt_varnoua # unde ”varnoua” e noua variabilă

Ca și-n SPSS putem pune label-uri ”human-readable” pe variabile:

chestie$Group

Mai sus presupunem că ”variabila” are două valori, 0 și 1 și că valoarea 0 e atribuită grupului de control iar 1 grupului experimental marcat în baza de date. E nevoie să specificați în cazul de mai sus, când avem doar două valori, prima condiție – cea de 0. R o ia ca implicită pe a doua.

Ah – uitasem – chestie elementară: vrei să vezi baza de date integral? În promptul R scrii numele ei și gata:

chestie

Dacă ați lucrat în BASH cu scripturi lucrurile de mai sus vi se vor părea familiare. În plus, R dispune de o sumedenie de interfețe grafice (eu folosesc RStudio care arată parcă mai bine). Și R are o mulțime de pachete gratuite pentru orice chestie la care v-ați putea gândi. Și e open-source, suportă scripting (fișierele .R pot fi rulate ca să nu mai repeți aceleași operații pe alte baze de date), tșie TAB autocompletion și e intuitiv ca limbaj de scripting. Și ca să nu căutați ca mine cum se iese din promptul R tastând ca demenții ba logout, ba exit, ba quit, ba !wq (lol, can’t blame me for trying), se iese cu q().

RStudio e doar una din interfețele grafice disponibile pentru R. Alternativa e RCommander; sau alte soluții mai mult sau mai puțin open-source.

Din consolă, odată ce deprinzi comenzile, devine mai simplu:

Am creat trei seturi de date cu câte 7 intrări numerice la fiecare variabilă [c() desemnând o variabilă numerică]. Aparte de statistica descriptivă putem primi separat media sau alte date care ne interesează, face testul T pentru eșantioane individuale sau perechi și alte chestii.

Alte similitudini cu un terminal BASH ar fi Ctr+L pentru curățarea promptului sau autocompletion în cazul comenzilor.

Să vedem acum niște scoruri Z:

…unde n_grup1 e numărul, m_grup1 e media grup1, se_grup1 e eroarea standard iar z_grup1 e scorul Z.

Terapia cu îngeri și alți șarlatani

Cei de la Digi24 au avut azi o emisiune despre oamenii ăștia care-și zic ”psihologi” și practică fel de fel de energo-terapii, terapii cu îngeri și alte chestii pseudoștiințifice care costă undeva între 77 și 100 de RON ședința. Eu unul am râs privind emisiunea. Embed mai jos, că am găsit-o cu greu. Ba acum downloadez și MP4-le emisiunii la 720p cu ceva plugin Firefox, să-l am pentru zile negre când mă simt trist. Facepalm la minutul 14:52 când doamna cu atestat de psiholog principal la COPSI face show de clarviziune bazată pe fotografii și cititul în palmă. Dublu facepalm la minutul 18:50 când un alt psiholog cu atestat COPSI practică psihologia solară, meditația șamanică și cristaloterapia (printre altele mai dubioase).

Cooking frenzy – 3 decembrie 2016

I am calling these ”bukti bukta”.

 

 

News from the Interwebz – 1 decembrie 2016

Ninge cu fulgi mari la Oradea, deci nu ies din casă azi, deci citesc și scriu articole. Și vorbind de articole, tocmai am publicat un text mai lung pe Psihoradea numit ”5 mituri în psihologie”. Aș avea destul de mult de scris pe subiect (despre mesajele subliminale așa cum sunt ele percepute de conștiința publică, despre termeni greșit folosiți de ziare, despre alte concepte prost înțelese) dar am ales să vorbesc despre hipnoză, serul adevărului, poligraf, ”cercetătorii britanici au descoperit că” și ”molecula dragostei”. Consider că lucrurile acestea trebuiau clarificate, cel puțin la mine pe site.

News from the Underzone – 29 noiembrie 2016

Am scris câteva articole de ieri încoace. ”Altruismul e calea spre mai mulți marteneri sexuali” e pe Psihoradea de ieri, iar azi am scris ”Avantajul copiilor din familii bilingve”. Tot azi a apărut pe eBihoreanul și articolul meu despre ”Tulburarea de personalitate paranoidă”.

În numărul din decembrie al revistei Psychologies apare și un articol la care am colaborat și eu: ”Ghid de tată divorțat”.

/Update: și văd că a mai apărut o recenzie la Soldați ai terebentinei.

 

Aparent am prieteni

Nu mă pasionează Goodreads. E o platformă interesantă, un social media pentru iubitorii de carte. Dar atât. Ratingurile primite de cărțile mele mă lasă de obicei rece, fie pozitive, fie negative. Dar omul ăsta cu cont ascuns ”made my day”. Acum o săptămână a intrat și-a dat cel mai mic rating tuturor cărților mele. Scurt pe doi, în aceeași zi (20 noiembrie). Gen ”nu mi-a plăcut cartea dar le-am citit și pe celelalte 4-5, deci îmi exprim părerea obiectivă și despre ele”. În traducere liberă, care e șansa ca cineva care mi-a citit o carte și să nu-i fi plăcut să le cumpere pe celelalte 4 și să le citească, să nu-i placă a doua și să continue să citească? Ca să poată da rating minim pe Goodreads, desigur – cu profil care nu e public și vechi de câteva săptămâni.

Așa că da, aparent am un fan. Mulțumiri ”Elisa”, sau cum te-oi numi. Nu ești singură, mai e una care are contul setat pe privat, a dat doar ratinguri negative și-a dispărut în căutarea creării unui alt cont. Probabil ești tot tu iar chestia asta nu m-ar mira deloc. Băi – și de-ar conta pentru mine Goodreads ori ratingul acordat acolo…

Și de aceea mă feresc eu să particip la lansări de carte, cenacluri, să intru în polemici literare pe Facebook ori să socializez cu alți scriitori. Pentru că scriitorii și editorii ăia au timp de chestii de genul ăsta. Au timp să facă zeci de conturi Goodreads pentru a nimici chipurile concurența și a-și crește ratingul propriu. Pe o platformă pe care intru din an în paști. Și e parțial amuzant, parțial trist; ca bătrânul care înfige bețe de chibrit rupte în yala lacătelor cutiilor poștale ale vecinilor.

România, te salut.

News from the Interzone – 22 noiembrie 2016

Am scris un articol zilele trecute, articol care văd că a fost ieri publicat pe Bihoreanul: ”Deprind bebelușii elemente de limbă încă din uter?”. Am citit studiul acum vreo trei zile și e unul din cele mai interesante pe care le-am citit vreodată, așa că articolul merită o privire. Și vorbind de studii, tot adun pe ele de ceva vreme și toate zac în Mendeley și nu am vreme efectiv să le citesc. Lunea e o zi tare plină și ieri am fugit când la spital să fac practică, când la masterat, când la cumpărături. Sper să prind o zi în care să apuc să stau să citesc tot ceea ce mi-am propus să citesc: articolele salvate în Pocket, studiile din Mendeley.

Și între timp am mai scris și publicat un articol pe Psihoradea: ”O nouă modalitate de tratare a fobiilor în psihologie”.

Video de la lansarea ”Aer și MSbP” de la Gaudeamus

Am primit și eu clipul filmat la Gaudeamus 2016 la lansarea cărții mele ”Aer și MSbP”. Below.

Mulțumiri din nou Alexandrei Medaru și Deei de la Crux Publishing pentru organizare și prezentare. Cartea poate fi cumpărată de aici la preț redus (zilele acestea cel puțin), cu transport gratuit.

News from the Outerzone – 20 noiembrie 2016

”Persoanele cu autism procesează mișcarea mai bine decât restul oamenilor” e titlul unui articol pe care l-am scris ziclele trecute pe Psihoradea. Am citit studiul cu mare atenție și plăcere și trebuia să scriu și un text pe marginea lui. Am mai scris două texte și pentru Bihoreanul, aștept să se publice și acelea săptămânile viitoare.

Și-am fost ieri la a XXI-a conferință internațională de psihologie din Băile Felix unde am urmărit prezentări pe tema agresivității și bullying-ului făcute de psihologi din Germania, SUA, Cehia, România și alte țări.

Iar dacă aseară am făcut clătite umplute la cuptor, de vreo jumătate de oră am terminat de făcut corndogs, cașcaval pane și niște onion rings. S-a umplut casa de fum dar e OK, am ventilat.

La Gaudeamus azi e ultima zi în care mai puteți cumpăra romanele mele direct de la standul Crux Publishing. Ieri a fost lansarea de carte pentru Aer și MSbP, a prezentat Alexandra Medaru; aștept încă pozele și filmarea de la eveniment.

Și-am rezolvat cu driverele Optimus în Ubuntu 16.04, că se băteau cap în cap driverul nouveau cu cel nvidia. Dezactivat NVidia (nu, nu mă joc, n-am nevoie de putere grafică) și acum merge totul OK. Înainte îmi consuma bateria ca un cal înfometat tehnologia asta Optimus. De când am exclus NVidia din ecuație bateria merge perfect.

Și mi-am luat în sfârșit un router gigabit dual-band, un ASUS Gigabit RT-AC1200G Plus. Două benzi, una de 2,4, una de 5GHz. Merge cea de 5GHz de zbârnâie. Și acum nu mai am probleme nici cu NAS-ul Synology, că aparent de la routerul vechi TP-Linux era problema de-mi cădea conexiunea fest. Și-am rămas cu două routere Linksys WRT54GL de care nu mă despart nici mort. Best router model ever made. Plus TP-Link-ul vechi care merge la sertar.

Bucureșteni, mergeți la Gaudeamus

Editura Crux Publishing are plăcerea de a vă invita la Târgul de Carte Gaudeamus, ediția 2016. Ca în fiecare an, vă așteptăm la noi la stand, promițându-vă nu numai o oferă de carte foarte bogată, dar și distracție din plin. Noutățile din această toamnă vor fi lansate sâmbătă, 19 noiembrie, începând cu ora 15.00 la standul editurii (numărul 100, nivelul 3.20) în prezența autorilor și a invitaților lor.

La standul editurii găsiți și cărțile mele, la preț redus, inclusiv Aer și MSbP, ultimul meu roman. Din ce văd în poze e disponibil și un pachet cu toate cele trei publicate la Crux Publishing. Treceți pe-acolo, vorbiți cu Deea, editoarea mea, puneți întrebări, răsfoiți. Ca de obicei, Târgul de Carte Gaudeamus are loc în București la Romexpo.