R Polish Team

Było nolast jest nofirst

admin | wtorek, 22 listopad 2011 - 10:16 pm | ¶ | Blog-R | Brak komentarzy

Funkcja nolast z obsługą macierzy

admin | wtorek, 22 listopad 2011 - 8:50 pm | ¶ | Blog-R | Brak komentarzy

Źródło danych Data Market

admin | poniedziałek, 21 listopad 2011 - 09:28 am | ¶ | Blog-R | Brak komentarzy

Wykresy R'a w programach WORD i EXCEL

admin | poniedziałek, 21 listopad 2011 - 09:24 am | ¶ | Blog-R | Brak komentarzy

Interaktywne prezentacje HTML w R

admin | niedziela, 20 listopad 2011 - 10:57 pm | ¶ | Blog-R | Brak komentarzy

W nawiązaniu do funkcji ls bez nawiasów, stworzyłem bardzo przydatną klasę S4 za pomocą, której można wywoływać różne funkcje z różnymi argumentami bez stosowania nawiasów. Obiekt składa się z trzech slotów. Pierwszy o nazwie fun zawiera nazwę wywoływanej funkcji, drugi o nazwie arg zawiera argumenty dla tej funkcji, trzeci o nazwie show decyduje o tym, w jaki sposób wynik funkcji powienien zostać zwrócony. Na samym końcu przekład zastosowania:

setClass("simplefunction",representation(fun="character", arg="list",show="logical"))
setMethod("show","simplefunction",function(object){
	tmp<-NULL
	if(!is.empty(object@arg)) 
		tmp<-do.call(object@fun, object@arg) else
			tmp<-do.call(object@fun)
	if(object@show==TRUE)
		print(tmp) else
			return(tmp)
	}
)

Created by Pretty R at inside-R.org

Wymaga funkcji is.empty()

is.empty<-function(x){
	if(length(x)==0)
		return(TRUE) else
		return(FALSE)
}

Przykład zastosowania:

l@fun<-"ls"
l@arg<-list(pos=1)
l@show<-TRUE
 
l

Created by Pretty R at inside-R.org

admin | niedziela, 20 listopad 2011 - 12:10 am | ¶ | Blog-R | Brak komentarzy

Eksprakcja Tekstu z HTML'a

# load packages
library(RCurl)
library(XML)
 
# assign input (could be a html file, a URL, html text, so some combination of all three is the form of a vector)
input <- "http://www.google.co.uk/search?gcx=c&sourceid=chrome&ie=UTF-8&q=r+project#pq=%22hello+%3C+world%22&hl=en&cp=5&gs_id=3r&xhr=t&q=phd+comics&pf=p&sclient=psy-ab&source=hp&pbx=1&oq=phd+c&aq=0&aqi=g4&aql=&gs_sm=&gs_upl=&bav=on.2,or.r_gc.r_pw.r_cp.,cf.osb&fp=27ff09b2758eb4df&biw=1599&bih=904"
 
# evaluate input and convert to text
txt <- htmlToText(input)
txt
 
#r project - Google Search Web Images Videos Maps News Shopping Gmail More Translate Books Finance Scholar Blogs YouTube Calendar Photos Documents Sites Groups Reader Even more » Account Options Sign in Search settings Web History Advanced Search Results 1 - 10 of about 336,000,000 for r project . Everything More Search Options Show options... Web The R Project for Statistical Computing R , also called GNU S, is a strongly functional language and environment to statistically explore data sets, make many graphical displays of data from custom ... www. r - project .org/ - Cached - Similar [Trunc...]