Monday, September 19, 2016

Using the R.cache package

# RStudio instance #1 - the cache saving test piece
# Load R.cache library, set working and cache directories
setCacheRootPath(path="C:\\Data Study\\Class 5 Reproducible Research\\Week 4")
setwd("C:\\Data Study\\Class 5 Reproducible Research\\Assignment 2")

# Load a large data file that takes a while to load
data1 <- ata="" bzfile="" div="" read.csv="" tormdata.csv.bz2="">

# Cache the loaded data object using key ABC
# Creates file d125f08eb1bf24d4c1e2b38b35d3362b.Rcache (389,576 KB)
key <- div="" list="">
> nrow(data1)
[1] 902297
> ncol(data1)

                   # RStudio instance #2 (separate UI, process) - the cache reading test piece
                   # Load R.cache library, set working and cache directories
                   setCacheRootPath(path="C:\\Data Study\\Class 5 Reproducible Research\\Week 4")
                   setwd("C:\\Data Study\\Class 5 Reproducible Research\\Assignment 2")

                   # Load the large cached data object - much faster than original load!
                   key <- b="" list="">
                   dataX <- b="" key="" loadcache="">
                    > nrow(dataX)
                    [1] 902297
                    > ncol(dataX)
                    [1] 37

# Cache the datamod() function  itself
# Creates file f4971f5a1be44fc8fddb87235d45aaaa.Rcache (2 KB)
key <- div="" list="">

                   # Load the datamod() function 
                   key <- b="" list="">
                   dataX <- b="" key="" loadcache="">
                   > dataX(4)
                   [1] 12

# Cache the result of a datamod function call
# Creates file 1b2526c00d8ed8a42700fc0fb39c1b1b.Rcache (1 KB)
key <- div="" list="">

                   # Load the datamod() function return value 
                   key <- b="" list="">
                   dataX <- b="" key="" loadcache="">
                   > dataX
                   [1] 18

# Small sample function
datamod <- div="" function="" myarg="">
  myarg * 3

Friday, July 22, 2016

Making America Great Again - My Way

"Make America Great Again" is a weird political slogan because it's not something government can do. It's something only WE can do, at the grassroots. If people make themselves and their communities better, our "leaders" (i.e., career politicians) are going to have to step up their game and follow US.

Work on yourself
  • Spend time with people who aren't exactly like you. People with different religious views, political views, skin color, age. What you'll probably realize is that we're all a lot alike and that some of the differences can broaden your perspective.
  •  Find people and things you LOVE and make them the focus of your life. Too many people work for 8-10 hours and then spend their free time binge watching television. Join a club, read a book or ride a bike instead!
  • Be physically active. Even walking for a half hour to an hour a day can make a big difference in your physical and mental health
  • Do something that scares you!! Too many of our problems come from the pervasive air of fear that the media and government encourage. Develop some resistance to fear by learning to compartmentalize it: do some indoor climbing, go hiking, ride a motorcycle, get a tattoo. Find a friend with reptiles or a tarantula and hold a critter that makes you nervous.
  •  Take classes at a community college or online. Your local library can help you find free or low cost learning resources.
 Work on your community
  • Help smash the death grip that the two major parties have on our society. Vote Libertarian Party or Green in this year's presidential election. If having Donald Trump or Hillary Clinton in the White House scares you, it probably means that we've allowed the government too much power over our lives.
  • Get good information by reading news sources from various political perspectives and countries.
  •  Join pro-rights organizations like the ACLU or NRA, preferably both. Learn to appreciate our civil liberties...and responsibilities.
  • Learn to teach some skill that you have
  •  Don't call the police on someone just because they make you uncomfortable. Mindless, wittering fear is no reason to send an armed man with the authority to shoot anyone he wants to make people stop triggering you. Hug a puppy instead.
  • Help rethink the role of law enforcement. Many of the situations that law enforcement fears start with pulling someone over for a broken vehicle light when their license plate could be used to find the owner and mail them a fix it ticket. 
  •  Help rethink the laws we live under. A good rule of thumb is not to make something illegal unless you'd be comfortable seeing someone who to enforce it. So having laws banning marijuana or prostitution or what doo-dads people can have on the muzzle of their rifle is ridiculous. There are presently so many laws in place at the federal, state and city levels that most people are in technical violation of some law, every day.
  • Give money to food banks and other worthy causes. Be a volunteer!

Sunday, May 29, 2016

Ray Carter: In Memorium

My friend Ray Carter died last night.

I actually felt a little guilty typing that. We hadn't seen each other in a few years but he was somebody who I liked a LOT...we worked together on a cool project a bit over a decade ago. And I'm damn sorry to see him gone. Ray had been fighting cancer for some time and his prognosis suddenly became VERY bad last week. I had hoped to take some movies to him today and join him at his life celebration next weekend. Sadly, those opportunities are now gone and instead there are only happy memories of having known him.

I first met Ray in 1999 or 2000, when I was trying to get a political group for pro-gun Democrats off the ground. I don't remember how we met but the Pink Pistols movement (Motto: pick on someone your own caliber") was starting then. I guess someone introduced us because the bizarre politics in this country have the Democratic "leadership" hating gun owners and taking gay folks for granted....while Republicans often do the exact opposite.

Still, the success of the Pink Pistols and their intention of taking responsibility for their own safety was refreshing. They are still around and doing well today. Our local Seattle area group named itself CeaseFear with the intention of twitting the state's anti-gun group, CeaseFire. I remember being at a hearing in Olympia and one of CeaseFire's minions giving a startled doubletake at the sound of our name. That alone was worth the price of admission.

I think it was Ray himself who coined the name CeaseFear. Most of our creative ideas and a great deal of the energy behind the organization came from him. Ray had been an early organizer for Seattle Pride events and saw no conflict between that and his self defense and gun rights activism. Would that more voters out there had the insight to see that!

During the time that CeaseFear was most active, our activities were concentrated on having shooting events that were LGBT-friendly, a few safety classes, political outreach at Pride events and offering testimony in Olympia. The orientation for safety minions like myself was to join a tour of gay bars in Seattle's Capitol Hill area, the intention being to make sure we were comfortable and friendly with LGBT folks. Actually, it was a blast and the camaraderie in our organization was excellent...again, thanks to Ray.

After a few years, a lot of us found ourselves focusing on staying employed in one economic downturn after another. I was connected to Ray on Facebook and we stayed in touch that way. I occasionally saw him at the Second Amendment Foundation table at gun shows...SAF and local NRA leaders gave our organization tremendous support and Ray ended up working there.  And now, unfortunately, he's gone. Ray was a wonderful person and we don't get to see people of his quality and intelligence nearly often enough. We WILL miss Ray Carter!

Saturday, May 21, 2016

Google Hangout info...

My Google account:

Google Hangout video connections create a new URL when you start a video conference.I will post the Hangout URL for our game tomorrow when I start it:

Here is the URL: <>

So, here are the rules that come with the game:

I think this game will run more smoothly the more game sets we have among us but I can imagine working this with one or two sets.

For example:
- I suggest the Profanity Master be someone other than the person/people dealing the cards
- Until we have a couple more sets, one option would be to DM or email  dealt cards to people (preference?)
- Let's give this a try and see how it works out!

Optional items: good French brandy and an epee fencing sword or rapier. :)

Thursday, May 19, 2016

Volunteering with Seattle Shakespeare

Last weekend, I went to see the brilliant Seattle Shakespeare production of Romeo and Juliet (comments posted here). Today, I took the day off of work and volunteered as an usher at one of their matinees, thereby 1) evading work for a day and 2) getting to see Romeo and Juliet a second time just by helping out a little. What a GREAT day!

I arrived at Seattle Center a bit early, not knowing what the experience would be like. From the beginning, the signs boded well for an enjoyable experience:

Walking into the theater and not as a member of the audience felt very different. OK, this may sound strange but the theater felt...pregnant. Full of possibility.

Now I'll make another comment that may sound strange. The actors reminded me of computer programmers. Not from some sense of deep geekiness or because I heard some cast members discussing SQL queries during intermission but because of their laser-like focus while watching off stage, waiting for their next scene. Much like developers focus in on their monitors as they work, I could see the actors watching everything happening on stage intently. It was awesome and I felt a sudden kinship with them. (Maybe their occasional distracting audience members are like the people who like to wander by developers and interrupt, asking why they're so quiet)

From the beginning, I wondered what I would be asked to do. Would I be taking tickets? Helping to move stuff around?

No. They asked me to guard the weapons.

Today's matinee was for a number of local schools and there was some concern that some of the high school boys would suddenly grab a rapier and start playing with it during the beginning, end or intermission. Granted, asking me to watch the swords was a bit like using a fox to guard a hen house. But I want to make this a recurring volunteer gig and so I kept the high schoolers and even my own self from playing with the swords.

After the play, we ushers made a few passes through the seats to tidy things up. I found myself strangely sad that the day was over. I may have been the lowest minion around but I felt a little bit like I had helped make something awesome happen.

One last note: Romeo and Juliet's run ends in three days. If you have the option, I can't recommend seeing this play highly enough!

Sunday, May 15, 2016

Just for fun...word frequency in Romeo and Juliet

Every once in a while, just for fun, I run a word frequency count on a Shakespeare play. The results probably don't mean a whole lot but they do give kind of an interesting look at what language is used most in the play.

Here are some of the top words used in Romeo and Juliet and how often they appear (including stage directions):

     romeo       Count:   294
     you       Count:   291
     thou       Count:   276
     me       Count:   264
     not       Count:   258
     with       Count:   251
     juliet       Count:   176
     thy       Count:   167
     what       Count:   164
     will       Count:   147
     nurse       Count:   143
     thee       Count:   139
     love       Count:   135
     capulet       Count:   133
     shall       Count:   110
     lady       Count:   105
     come       Count:   97
     friar       Count:   97
     ill       Count:   84
     mercutio       Count:   83
     now       Count:   82
     good       Count:   82
     benvolio       Count:   80
     death       Count:   69
     well       Count:   68
     night       Count:   68
     tybalt       Count:   67
     we       Count:   66
     man       Count:   64
     there       Count:   64
     hath       Count:   63
     our       Count:   60
     paris       Count:   59
     their       Count:   47
     give       Count:   47
     yet       Count:   47
     doth       Count:   47
     dead       Count:   47
     let       Count:   45
     tell       Count:   45
     fair       Count:   43
     day       Count:   42
     take       Count:   41
     montague       Count:   41
     first       Count:   33
     prince       Count:   33
     sweet       Count:   33
     gone       Count:   33

A Dream of Romeo and Juliet

We've been attending Seattle Shakespeare Company's more regularly over the past couple years and continually grow more impressed with the accomplishment of their productions. Yesterday's play was Romeo and Juliet and, once again, we are VERY impressed.

One tactic that Seattle Shakespeare has used in several plays now is to do something unexpected that takes audience members off guard and immediately immerses them in the world of the play. For example, last Fall's Comedy of Errors had an aerialist swinging on the pendulum of a giant clock. Romeo and Juliet was framed within scenes of people trapped without their will or understanding on a stage and forced to act out parts they did not choose. There is a hint that everything that happens is a dream or an illusion...including time and its demands. It worked extraordinarily well, changing the audience from intentional viewers of an artistic production on a rainy Saturday afternoon into "observers" of "real people" trying to act on a bewildering and violent world they wake up in and make their story a romance...not a tragedy.

Memes are all the rage on the Internet these days and there is one that scoffs at the notion that Romeo and Juliet is really a love story. The thing to consider is, if circumstances had been different it COULD have been the beginning of an excellent love story. IF Romeo and Juliet were not members of families literally at war with one another. IF duels to the death were not commonplace. IF there had been just a little more time...

Granted, there are obstacles to overcome. Romeo is impetuous and a bit fickle: he starts the play mooning over another woman (or maybe he was originally promised a part in As You Like It). While older than Juliet, he is clearly very young himself. He does show promise of integrity and priorities more far reaching than bloodshed in the streets...given time, he would undoubtedly have been quite a character. I thought that Riley Neldam ably captured this ambiguous state and promise.

The character of Juliet was played by Anastasia Higham. She carried out this first starring role in a production perfectly. A year ago, I saw her playing various roles in the Seattle Shakespeare touring production of Macb....the Scottish play. To see her go in just a year from being little Fleance (anachronistically playing with a toy airplane) to an exquisite young woman experiencing love for the first time in dire circumstances was something special.

But we all know, the love story between Romeo and Juliet isn't taking place in the Forest of Arden. It is taking place in a society rent by strife and violence, strife and violence that are largely personified in the person of Tybalt. Tybalt is the character whose hatred of the Montagues shows itself in a constant desire to fight and kill them. Alan Rickman took a turn as Tybalt in the 1978 BBC production of Romeo and Juliet and his Tybalt was fairly urbane, seeking a fight with Romeo by trying to avoid engaging Mercutio.

Treavor Boykin's Tybalt was something very different and ferocious. This image from the Seattle Shakespeare site of him attacking  Andrew Lee Creech's Benvolio captures this incredibly well. These two characters and Trevor Young Marston's pitch perfect Mercutio play a huge part in creating the world of strife in which the play takes place, the violence and the fatalistic acceptance of that violence that it ultimately leads to. Only Benvolio and Romeo among the young men seem interested in finding more to life than carousing and killing.

I enjoyed every bit of this performance, both the traditional aspects and the new insights and emphases found by its director, Vanessa Miller. Among the new faces, seeing familiar faces like Mike Dooly (Lord Capulet) and George Mount (playing the Prince, the Chorus and Fate) made the experience familiar, as well as new and thought provoking.

If you haven't seen this production of Romeo and Juliet yet, you have one more week in which to do so. I am volunteering as an usher this week and excited at having an opportunity to see this play one more time!

Treavor Boykin (Tybalt)
Andrew Lee Creech (Benvolio)
Mike Dooly (Lord Capulet)
Chris Ensweiler (Friar Laurence)
Morgan Grody (Servant)
Anastasia Higham (Juliet)
Justin Huertas (Dream/Death/Apothecary)
Trevor Young Marston (Mercutio)
Claire Marx (Lady Montague)
Carolyn Marie Monroe (Lady Capulet)
George Mount (Prince/Chorus/Fate)
Riley Neldam (Romeo)
Jason Salazar (Ensemble)
Kerry Skalsky (Lord Montague)
Jordan Iosua Taylor (Paris)
Kathryn Van Meter (Nurse)
Elizabeth Wu (Ensemble).

Production Team

Vanessa Miller (Director)
Craig Wollam (Set Designer)
Kelly McDonald (Costume Designer)
Tim Wratten (Lighting Designer)
Robertson Witmer (Sound Designer)
Justin Huertas (Composer)
Crystal Dawn Munkers (Assistant Director/Choreographer)
Geof Alm (Fight Choreographer)
Robin Macartney (Props Designer)
Tori Thompson (Stage Manager)