Jeżeli plik data1.dat
zawiera
liczby rzeczywiste, to poniższy skrypt wykona następujacą transformację:
# zamień macierz liczb rzeczywistych z pliku data1.dat na # odpowiednie wartości na skali porządkowej... categories <- 5; df <- read.table("data1.dat", header=T); dl <- lapply(df, function(x){ cut(x, breaks=categories, labels=FALSE)} ); write.table(data.frame(dl), "data1.txt", sep="\t", na="", row.names=F)
Dla każdej kolumny
wyznaczy categories przedziałów o jednakowej szerokości,
przyporządkuje każdą liczbę do określonego przedziału,
przypisze tej liczbie numer tego przedziału. Polecenie
write.table
wypisze wyznaczone numery
do pliku data1.txt
.