Olika färger i R

Mia skrev för ett litet tag sedan ett inlägg om att hon ville ha felmeddelanden i annan färg än annan output. Då (R version 2.14.2) såg det ut så här:

Nu, några månader senare (R version 2.15.2), ser det ut så här:

Tack så mycket R Core Team! Ni är bra!

Brodera din egen iPhone

Denna fantastiska present fick jag från mina ännu mer fantastiska kollegor! Man broderar själv sitt iPhonefodral enligt valfritt mönster. Vi får se om jag vågar lägga upp det färdiga resultatet också. Fodralet kommer ifrån Leese design (www.leesedesign.com)

Mormorsruta

För er som vill lära er att virka en mormorsruta kan jag rekommendera denna sida.

Skillnaden när jag virkar mormorsrutor är att jag gör halvstolpar istället för stolpar.

Man kan göra mkt fint av mormorsrutor, nedan ser ni ett armband som jag virkat till min fina vän Sofie (som f.ö. sprang tjejmilen igår på en sjukt bra tid).

Trevlig söndag!

Regnig helg

De senaste dagarnas ofattbara mängder av regn har gjort att virka känns som en härlig aktivitet igen!
Innan sommaren påbörjade jag denna filt, som består av en enda stor mormorsruta. Tror jag fortsätter på den tills jag kommer på något mer spännade projekt:)

Min nya cykel

Är löjligt förtjust i min nya cykel! Jag antar ni förstår varför???

Stora data, små triumfer

Jag har visserligen jobbat med stora datamaterial förut, men då har det varit data som jag skapat, så jag har kunnat lagt dem snyggt i matriser och allt har gått ganska bra. Lite parallellprocessning behövde jag göra, men då i dess mest primitiva form (helt separata körningar på tre olika datorer, som råkade ha tre olika operativsystem...).

Stora RIKTIGA data är en helt annan fråga. Jag fick ett jättefint datamaterial i mina händer nyligen och hade lite problem med att läsa ihop (merga) olika deldataset med varandra i R. Lyckades efter lite snubblande med det jag ville. Hittade trevliga biblioteket sqldf, som är föredömligt dokumenterat. Det använde jag för att sortera data, sedan använde jag en vanlig merge utan sortering. I ett annat moment behövde jag göra en "reshape", men fick aldrig R att orka med. Troligen var det sortering som spökade även där. Det löste jag med en loop (jag vet, det är fult). Det gick inte snabbt, men det gick. Det man inte har i huvudet får man ha i benen.

Sisyfos och "kunden har alltid rätt"

Jag ägnade ungefär en arbetsdag den här veckan åt att ändra ett script för en automatgenererad graf (som en Kollega skrivit) till en mindre elegant lösning som Beställaren ville ha. Grafen byggde på en hel del smart kod som var svår att arbeta bort och jag började till slut om från början.

Har nu lika mycket dokumentation som kod i scriptet, och har lagt in möjligheter att ändra utan att slita koden i småbitar. Inte snyggt, men användbart. Bättre eller sämre än det var från början?

Fredag

Idag är sista dagen på kursen så ikväll bär det av till den kungliga huvudstaden igen!

Bifogar bild på kursboken som jag ger betyg @@@ av @@@@@

Mer info om boken

I´m back

Det långa bloggsommarlovet som jag tagit är nu över!


Denna vecka är jag på kurs, mkt intressant!!

Mer te

Har försökt koka en kopp te i en timme (har satt på vatten fyra gånger) men har lyckats distrahera mig själv med R-programmering, SMS och Pocket planes (den rafflande vidareutvecklingen av Tiny tower).

För att dricka så mycket te är jag väldigt dålig på att koka te.

Statistikern och det ologiska

Det (de) ologiska är statistikerns kryptonit. Tidigare har jag trott att oändligt tålamod var enda försvaret, men det är inte riktigt sant. Med noggrann versionshantering (Git eller allmän nit) kan man åtminstone spåra galenskapen. Det lättar upp humöret.

Vad är orsaken till kausala grafer?

Sitter och sliter mitt hår över en kausal graf. Eller inte över själva grafen då, utan över data. Som vanligt döljs hälften av vad jag skulle vilja se av ett udda urval. Udda urval ger mig huvudvärk, trots att jag disputerat på dem.

[Bilden har ingenting med data i texten att göra.]

Trikågarn

Jag och N ska är tillsammans med bror påväg till Borås för att köpa en ny bil till honom. Vad passar då bättre än att pröva det nya trikågarnet som jag köpte igår?!

Prövar att göra en brödkorg med virknål 12.

Var inte störig

Det var bättre förr

Vem har raderat alla excel-inläsnings-funktioner från R-version 2.15.0 (Mac)? Jag kör nu version 2.14.2 och surar.

Olika färger i R

Förut hade jag en kollega som gjorde små R-funktioner åt mig när jag gnällde om att R inte gjorde saker som jag ville. Vill ni bli lika omtyckta som honom, tipsa mig om hur man löser problemet nedan:)

En sak som jag länge tänk på som är irriterande med R är att det är samma färg på output, varnings- och felmeddelanden i konsolen. Detta måste man väll kunna ändra i detta fantastiska program?! Frågan är hur, min snabba sökning på Google hjälpte föga - några tips?

My life is back!

Syster och man är tillbaka efter sin resa från NY vilket betyder att familjen åter består av mig och N! Söta finaste syskonbarn ni är underbara i kvadrat men visst är det härligt att allt är som vanligt igen??!

Känner för att fira men vet inte hur!

Piratexpressen

Dagens bästa färdmedel

Data till kolumner

En av de få saker jag gillar med Excel är funktionen "data till kolumner". Jag har därför just suttit och programmerat en motsvarande funktion till R (fick ett dataset i behov av en del handpåläggning från en klient).  Och nej, jag vill inte veta om det redan fanns!

Kod nedan. (Skönhetsupplevelse utlovas ej!)

data.to.columns<-function(Oldcol, Separators){
  antal<-nchar(as.character(Oldcol), type="chars")
  maxantal<-max(antal)
  tempframe<-as.data.frame(matrix(NA,length(Oldcol),maxantal))
  new.col<-as.data.frame(matrix(0,length(Oldcol),maxantal))
  col.assign<-as.data.frame(matrix(0,length(Oldcol),maxantal))
    for (i in 1:maxantal){
    tempframe[antal>=i,i]<-substr(Oldcol[antal>=i],i,i)

    for (separators in 1:length(Separators)){
       new.col[!is.na(tempframe[,i])&tempframe[,i]==Separators[separators],i]<-1
    }
    if (i==1){
      col.assign[!is.na(tempframe[,i]),i]<-1}
 
    if (i>1){
    col.assign[!is.na(tempframe[,i]),i]<-new.col[!is.na(tempframe[,i]),i]+col.assign[!is.na(tempframe[,i]),i-1]}
    }

for (i in 1:maxantal){
  col.assign[new.col[,i]==1,i]<-0
}
n.new.col<-max(apply(new.col,1,sum))+1
new.data<-matrix("",length(Oldcol),n.new.col)
for (columns in 1:n.new.col){
  for (i in 1:maxantal){
      new.data[col.assign[,i]==columns,columns]<-(paste(new.data[col.assign[,i]==columns,columns],tempframe[col.assign[,i]==columns,i], sep=""))
    }
  }
new.columns<-as.data.frame(new.data)
return(new.columns)
}

Exempel:

testdata<-c("NA","34+15+Okänt","45+35+NA+17", "2+4", "35 NA" )
data.to.columns(Oldcol=testdata, Separators=c("+"," "))

Allt och ingenting

Barnen sover och en behaglig tystnad har lagt sig i hemmet. Det här med att umgås med barn är fascinerande, allt och ingenting händer på samma gång. Vi har egentligen inte gjort något speciellt idag samtidigt men ändå har det gått i ett. På med kläder och ut på stan, för varmt ta av jackor, akut törstiga strupar, provning av nya vårskor som är försmå/förstora/skaver/klämmer, fem butiker senare fullträff, lirkat ut barn från skyltfönster, diskuterat varför det inte är okej att bada i kungsan fast 109 andra barn gör det, njutit av vårsolen och glass, hemåt med trötta korta ben, bakat pizza, ätit middag,syskonbråk, torkat tårar,tömt diskmaskin 2 gånger, spelat kort, bad, nattat minsta barnet och hällt ut vatten i sängen, stora barnet tappade en tand, stora barnet somnat, packat väskor till skola och dagis, ligger i sängen och kom precis på varför vuxna alltid har kontanter -> för att kunna leka tandfe, bävar för besviken min imorgon när upptäckten görs att tandfen inte varit här.

Lika bra att sova, imorgon väntar ännu en dag där allt och ingenting kommer att hända.

Våren är här!

Kommer vara tvåbarnsförälder i en vecka. Idag tog vi en sväng ner till Kungsträdgården och åt glass!

Ny virkbok

Varit på middag med vänner på Cloud Nine! Inte nog med det trevliga sällskapet, Karin överraskade med en bok om virkning - så snällt.

Självklart fick hon välja något ur boken och hon vill ha en brödkorg som ska virkas med tyggarn. Någon som vet vart man köper det?

Bibliotekarie?

Eller vad får man för titel när man skapat sitt första R-bibliotek?

Ny garnkorg

Idag flexade jag ut på lunchen och åkte till Brukas utförsäljning i Frihammnen. Gjorde många fynd, bland annat denna korg som jag tänker ha garn i!

Fördelen med att vara sin egen största beundrare

är alla fina blommor man får :-)

Definition på förtroende

Dagens roligaste läsning:

”Förtroende” enligt SOM-institutets undersökning är antalet personer som känner stort eller ganska stort förtroende minus antalet personer som känner mycket eller ganska litet förtroende.


Differensen ger sedan ett balansmått i form av en procentsiffra.

Nyttigt ska det vara

Jag och Maria har en kollega, A, som vi gillar väldigt mycket och bla beundrar för hennes pysselkompetens.

I dag visade hon vad för pyssel som hon och dottern gjort till ett sjuårskalas och jag fick tillåtelse att visa er. Hur coola och snygga är inte dessa nyttiga godispåsar?

Zzz

Har fortfarande inte kommit in i den svenska dygnsrytmen efter resan vilket gör att jag är ovanligt morgontrött.


Intresseflaggan på topp?

Ha en härlig måndag alla!

SPSS, STATA och R...

...har jag spenderat alldeles för mkt tid med idag :) ska nog fortsätta att virka lite på min uggla och njuta av de sista lediga timmarna innan jobb 24/7 väntar i veckan!

Vad gör ni en regnig sön som denna?

Doftkvadrater

Dagens tips är doftkvadrater från Make Up Store! De doftar underbart, finns i flera olika dofter och kostar endast 20 kr.

Se så ut och köp med er, säg att ni blivit tipsade av virkning och statistikbloggen så kanske vi får vår första sponsor!

Förvaring är a och o

Lite dåligt med bloggande den sista tiden, ska bli bättring på det:)

Idag har jag införskaffat mig ett par snygga boxar att förvara pärlor,nålar, tråd och annat dyl som behövs när man är i pysseltagen. De är köpta på lagerhaus och är mkt prisvärda. Visst skulle man hellre ha ett snyggt skåp fyllt med pyssel som en viss räv har men jag börjar här!

Nu saknar jag bara ngt snyggt och praktiskt att förvara allt garn i, idag har jag det i en Ikea-back. Tips??

Vardagsmysterier

Fick lite oväntat tid över och firade med att deklarera och att gå och köpa garn. Står inför några av livets vardagsmysterier

-varför måste man starta om webläsaren tre gånger för att uppdatera e-legitimationen?
-varför skickar försäkringskassan ut sina kontrollbesked i ett format som inte passar att sätta in i en pärm?
-hur vet man hur man ska virka för att få lagom stora tofflor?

Veckans text

Mia brukar alltid skicka ut veckans text på jobbet. Jag var lite orolig att vi skulle gå miste om det nu när hon är bortrest, men man kan lita på Mia! Hon hade förstås skaffat vikarie även för denna uppgift!

Parallellt med att Mia skickar ut veckans text brukar jag bidra med att läsa högt av visdomsorden på mina tepåsar. Den här gillade jag så mycket att den var värd att fota!

Honey moon

Eller ja en halv i alla fall. Imorgon drar vi - Florida och Karibien here we come.

Till er alla som blir kvar i Sverige, njut av påskledighet och väder!

#kärlek #semester

The winner takes it all

"Det viktiga är inte att delta, det viktiga är att vinna" är vårt måtto bland kollegorna på jobbet. Därför blev jag extra glad när jag vann en magnet-tävling mot just dem!

Packa inför resa

Ska ägna kvällen åt att packa till en härlig resa som jag och mannen ska åka på! Själva aktiviteten packa är ngt jag skyr som pesten men min vän Cicci har lovat att hålla mig sällskap så det kommer att förgylla aktiviteten mkt!

Middag med kollegor

Räven och jag är på Aarts och firar av en kollega. Vi kommer sakna dig kära kollega!

Det blev en... ööhh

Tummetott? Någon mer än jag som påbörjar en massa projekt och lämnar dem halvvägs? Vad gör man med dem sedan? Slänger? Syr ihop dem till ett merge-projekt och ser vad det blir?

Vad blir det för mat?

Idag ska jag laga mig en grönsakssoppa, hepp hepp inte alla dagar jag stor framför spisen!

#ensamhemma

Inspiration

När inspirationen tryter är jag glad att jag är ägare till denna ask!

Aprilskämt 2012

Har ni blivit lurade idag?

Jag som alltid blir lurad blev mycket glad när jag läste detta i NA  1 april 2010:

http://na.se/nyheter/2.2212/1.779465-nu-ar-det-slutskojat

Om jag inte minns fel var det räven som berättade för mig att det var ett aprilskämt....

iVirkning

Letade mig fram på appstore, och hittade förstås så mycket virkmönster att det blev svårt att välja.

Om man vill virka på engelska så kan man förresten behöva den här listan för att inte bli förvirrad: http://virkverket.blogspot.se/2007/05/engelska-virktermer.html

Nytt nagellack

Nu ska jag bjuda min fina vän Sofie på middag! Ni som inte får dela denna måltid med oss kan istället spana in mitt nya nagellack.

Påfyllnad i garnkorgen

Passade på att titta in på Ljungqvist Garn på Odenplan idag. De hade rea på ett av mina favoritgarner, Cotton Light från Drops!

Skulle egentligen bara köpa ett mörklila garn till ett hårband jag fick beställning på igår. Men det blev lite mer som sagt:)

Contaminated

En favorit i repris! Den här hittade jag i väntrummet till röntgen på läkarhuset Odenplan.

Jag gillar min virklåda

En fördel mot min förra är att den har två fack, så att saxen inte kan trakassera garnet (på förekommen anledning). Sedan tycker jag att den är snygg också!

R och min dator

Programmet R kommer nog att nämnas många gånger i denna blog. Jag säger ibland att jag inte gillar R, det är inte sant, så skriver jag det någon gång vet ni att det är övergående.

Idag är det inte jag som hyser agg mot R utan min dator. Jag hoppas att datorn är som jag, dvs snart förstår att R faktiskt är ett fantastiskt program.

Snälla dator, kom igen nu. Börja gilla R igen!

Baby boom

Det regnar bebisar i vänskapskretsen just nu! Tofflor likt dem på bilden har därför massproducerats den senaste tiden. Just dessa blev lite sneda och vinda men virkade med kärlek till lilla Julia.

Mer info om mönster och garn kommer senare!

Kanin en fredagskväll

Hello world