felixlindemann

setwd("/Volumes/Daten/FelixLindemann/Documents/git")

felixlindemann

foo <-
function(value) {

	return (3+value)

}

felixlindemann

get.ReliabilitätsSample<-function(n , min , max , seed ){
	
	set.seed(seed)				# Wähle eine bestimmte Zufallszahlenliste aus --> Für Reproduzierbarkeit
	x<-sample(min:max, n)	# Ziehe eine Stichproben von n Elementen
	return (x[order(x)])	# gib eine sortierte Liste zurück
}

n <- 30
min <- 1
max <- 576

felixlindemann

# Based on formula by 
# Cochran, W. G. 1963. Sampling Techniques, 2nd Ed., New York: John Wiley and Sons, Inc.

# see also http://statistikberatung.blogspot.de/2008/03/samplesizer-kostenloses-tool-zur.html

get.SampleSize <- function(N, Z, p,  e){
	
	n <- (
			Z^2 * p * (1-p) / e^2

felixlindemann

from time import sleep
import RPi.GPIO as GPIO

GPIO.setmode(GPIO.BOARD)
 
gpios = {
	
	1: "3.3 v",
	2: "5.5 v",
	3: "GPIO 0 (SDA)",

felixlindemann

SELECT COLUMN_NAME 
FROM INFORMATION_SCHEMA.COLUMNS 
WHERE TABLE_SCHEMA='TABLE_SCHEMA' 
    AND TABLE_NAME='TABLE_NAME';

felixlindemann

data.nst <- dbGetQuery(con, "select * from NST2007Abteilungen")
data.nst[,1:3]

felixlindemann

library(RMySQL)

dbhost<-"192.168.0.104"
dbsuer<-"windowsparallels"
dbpass<-""
dbcatalog<-"db"

con <-dbConnect(MySQL(), 
				host=dbhost, 

felixlindemann

install.packages('RMySQL',type='source')
library(RMySQL)

felixlindemann

Option Compare Database

Public Sub createMySqlDump2()
    Dim Filename As String
    Filename = "Y:\mypath\myfilePrefix-" ' Tablename.sql will be attached
    createMySqlDump Filename
End Sub