graph - R ethogram or actogram script -

-

i trying build ethogram or actogram figure in r. measured single behavior on 150 seconds (with 1 sec resolution), in wrote down following in excel: empty cell represents "no behavior", , cell containing 1 represents "behavior". each animal represents 1 row (150 cells long), , number of animals scored different in each experiment (n between 11 , 20). far, have raw data exported *.csv

here's example of first 4 rows containing each ~40 data points 1 *.csv file (each row 1 animal, each data point comma separated):

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1,1,1,1,1,1,1,1,1,1  ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1,1,1,1,1,1,1,1,1,  ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1,1,,,,,,1,1,1,,,,  ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,1,1,,1,1,1,1,1,,,,

i create graph in r looking similar 1 in figure 7c shown here: https://elife-publishing-cdn.s3.amazonaws.com/08758/elife-08758-fig7-v2.jpg (the whole, free article here: https://elifesciences.org/content/4/e08758). behavior plotted "tiny boxes" on time (coloring changed later in illustrator). , nice create each 1 graph 1 *csv file (experiment).

who can me?

here's possible solution using image() function :

# custom function using image emulate ethograph ethograph <- function(zeroonematrix, color='blue',xlab='behaviour',ylab='animals'){   m <- as.matrix(zeroonematrix)   m[m == 0] <- na   nanimals <- nrow(m)   ntimeslots <- ncol(m)    image(x=1:ntimeslots,         y=1:nanimals,         z=t(m[nanimals:1,]),         col=c(color),         xlab=xlab,         ylab=ylab,         yaxt = 'n') }  # here create random matrix of 0 , 1 (animals on rows , time slots on columns) # of course data reading csv set.seed(123) ntimeslots <- 150 nanimals <- 50 csv1 <- matrix(sample(0:1,ntimeslots*nanimals,replace=true),nrow=nanimals)  # let's plot ethograph(csv1, color='blue')

result:

enter image description here


Comments

Post a Comment

Popular posts from this blog

ios - RestKit 0.20 — CoreData: error: Failed to call designated initializer on NSManagedObject class (again) -

-
this error has shown on many times, seems. prominent answer issue seems restkit 0.20 — coredata: error: failed call designated initializer on nsmanagedobject class however, solution posted doesn't work me. let's start beginning: i want upload file server. want parse response make sure uploaded. if not, try again later. model has boolean variable called nsnumber *senttoserver purpose (in coredata, bool saved nsnumber ) . because don't know whether sending going successful, save entity coredata model first before sending via restkit. when post request successful, server returns json string this: {"id":14,"created":true} notice that, of course, id not set on coredata model yet, both id , created new informations model. here's model: @interface recording : nsmanagedobject @property (nonatomic, retain) nsstring * audiofilepath; @property (nonatomic, retain) nsdate * createdat; @property (nonatomic, retain) nsstring * deviceid; @
Read more

java - Digest auth with Spring Security using javaconfig -

-
so i'm trying create digest authentication spring following documentation trying translate xml "requirements" in java requirements. let's have xml in docs: <bean id="digestfilter" class= "org.springframework.security.web.authentication.www.digestauthenticationfilter"> <property name="userdetailsservice" ref="jdbcdaoimpl"/> <property name="authenticationentrypoint" ref="digestentrypoint"/> <property name="usercache" ref="usercache"/> </bean> <bean id="digestentrypoint" class= "org.springframework.security.web.authentication.www.digestauthenticationentrypoint"> <property name="realmname" value="contacts realm via digest authentication"/> <property name="key" value="acegi"/> <property name="noncevalidityseconds" value="10"/> </b
Read more

laravel - PDOException in Connector.php line 55: SQLSTATE[HY000] [1045] Access denied for user 'root'@'localhost' (using password: YES) -

-
my .env: app_env=local app_debug=true app_key=myappkey app_url=http://localhost db_connection=mysql db_host=localhost db_port=3306 db_database=gestiontaller db_username=root db_password='root' cache_driver=file session_driver=file queue_driver=sync redis_host=127.0.0.1 redis_password=null redis_port=6379 mail_driver=smtp mail_host=mailtrap.io mail_port=2525 mail_username=null mail_password=null mail_encryption=null i've tried password ", ' , without, restarting server every time. i've tried changing localhost 172.0.0.1. yes, password correct, running mysql -u root -p introducing password root in prompt can go mysql. users table: +------------------+-----------+ | user | host | +------------------+-----------+ | debian-sys-maint | localhost | | mysql.sys | localhost | | root | localhost | | root1 | localhost | +------------------+-----------+ i've added homestead.yaml this: database_port: 3306
Read more