Ohessa on yksi tapa prosessoida
R-skriptejä. Tässä käytetään Survo-aikaisia
R-sukrovirityksiä (/RACT, /RTERM, ks. liite).
Ideana on, että samasta toimituskentästä voi ajaa
useita R-skripteja joko lähes rinnakkain tai sitten
peräkkäin (joskin peräkkäin ajossa hyöty ei ole kovinkaan suuri...).
Olennaista on, että jos ajetaan useita
skriptejä samanaikaisesti, niin jokainen skripti
pitää olla omassa kansiossaan (R ei ymmärtääkseni
salli, että samassa "workspacessa" on useita
prosesseja?). Hyvänä puolena /RACT sukrossa on, että se
ei lukitse Mustetta, vaan kun R ruksuttaa, niin siinä samalla
voi sitten tehdä muita asioita .EDT:ssä...
Vaiheet:
1. Nuo R-sukrot (RACT,RTERM, R_RIDE1) tulee olla ensin asennettuna
(ks. liitteet, tallenna ne sukrohakemistoosi, RACTIV.EDT täytyy avata ja tehdä siellä olevat viritykset)
R_RIDE1 testi:
2. Tehdään alikansio KOE ja testiskripti (koe.r)
MD .\KOE\ / Tehdään alikansio
SAVEW CUR+1,CUR+5,.\KOE\koe.r
A <- 2; B <- 4;
x <- B*A;
writeLines(c("Tulos:", as.character(x)), ".\\KOE\\x.txt");
Sys.time(); getwd();
####################
3. Toimitetaan ohjelema
/R_RIDE1 .\KOE\ koe.r
(R_RIDE1 siirtyy toiseen kansioon)
#LOADP .\KOE\r.lis,CUR+1
> A <- 2; B <- 4;
> x <- B*A;
> writeLines(c("Tulos:", as.character(x)), ".\\KOE\\x.txt");
> Sys.time(); getwd();
[1] "2013-03-14 18:46:23 EET"
[1] "C:/PROGFILES/R-2.15.0/library/muste"
######################
LOADP .\KOE\x.txt,CUR+1
Tulos:
8
Huomasin, että R_RIDE1 toimii Musteessa tietty hieman eri tavalla
kuin Survossa (jossa tuota käytän). Esim. getwd()
ei nyt annakaan ??\KOE\ vaan tuon
Musteen paketin kansion. Mutta lopputulos r.lis ja
x.txt tulevat kuitenkin oikeaan paikkaan.
RACTIV.EDTR_RIDE1.TUT