R Polish Team

load package
library("sendmailR")
 
 
#use string formatting and your system info to format FROM address
from <- sprintf("<Projekt@%s>", Sys.info()[4])

#Sys.info()[4] - zwraca nazwę komputera
  
to <- "<adres@docelowy.pl>"
subject <- "Temat maila"
 
#Utwórz obiekt list zawierający treść maila (pierwszy element)
#Drugim elementem listy jest obiekt R'a, który chcemy dołączyć do maila.
#Do tego celu wykorzystujemy funkcję mime_part()
body <- list("Mail wysłany za pomocą R'a. Dołączona ramka danych.",
              mime_part(data.frame(x=rnorm(1000),y=rnorm(1000)),name="output"))
 
sendmail(from, to, subject, body, control=list(smtpServer="ASPMX.L.GOOGLE.COM"))

ORlist<-function(x){
	res<-matrix(FALSE,nrow=nrow(x[[1]]),ncol=ncol(x[[2]]))
	for(i in names(x)){
		res<-res|x[[i]]
	}
	return(res)
}

hammingDist<-function(x,y){
	if(length(x)!=1 | length(y)!=1)
		stop("x,y - not a single string!")
	if(nchar(x)!=nchar(y))
		stop("x,y - not equal length!")
	tmpX<-strsplit(as.character(x),'')[[1]]
	tmpY<-strsplit(as.character(y),'')[[1]]
	res<-NULL
	for(i in 1:length(tmpX)){
		res[i]<-tmpX[i]!=tmpY[i]
	}
	return(sum(res))
}

hammingDist<-function(x,y){
	if(length(x)!=1 | length(y)!=1)
		stop("x,y - not a single string!")
	if(nchar(x)!=nchar(y))
		stop("x,y - not equal length!")
	tmpX<-strsplit(as.character(x),'')[[1]]
	tmpY<-strsplit(as.character(y),'')[[1]]
	res<-NULL
	for(i in 1:length(tmpX)){
		res[i]<-tmpX[i]!=tmpY[i]
	}
	result<-list()
	result[['hammingDist']]<-sum(res)
	tmpX[res]<-"."
	result[['commonPattern']]<-paste(tmpX,sep="",collapse="")
	return(result)
}

hammingDist<-function(x,y){
	if(length(x)!=1 | length(y)!=1)
		stop("x,y - not a single string!")
	if(nchar(x)!=nchar(y))
		stop(paste("x,y - not equal length!\n","x= ", nchar(x),"\ny= ",nchar(y),sep=""))
	tmpX<-strsplit(as.character(x),'')[[1]]
	tmpY<-strsplit(as.character(y),'')[[1]]
	res<-NULL
	for(i in 1:length(tmpX)){
		res[i]<-tmpX[i]!=tmpY[i]
	}
	result<-list()
	result[['hammingDist']]<-sum(res)
	tmpX[res]<-"."
	result[['commonPattern']]<-paste(tmpX,sep="",collapse="")
	return(result)
}